home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY2
/
RFDML120.ZIP
/
CSERVE_A.SCR
< prev
next >
Wrap
Text File
|
1994-01-18
|
20KB
|
703 lines
;------------------------------------------------------
;
;CSERVE_A.SCR --- The script file for CompuServe
;
;------------------------------------------------------
;
; We begin with the format specifiers to which allow
;the script to identify where the MailId, RealName,
;and Subject texts are in a newly downloaded letter.
;
Format
Reply to: $SUBJECT$\n
Subject: $SUBJECT$\n
Subj: $SUBJECT$\n
From: [$UID$] $NAME$\n
From: $NAME$[$UID$]
From: $NAME$>$UID$\n
From: $UID$\n
Endformat
;
;------------------------------------------------------
; The following is a set of aliases which define the
; various prompts that CIS will send.
;
Alias cishost 'Host Name:'
Alias cisprompt 'Enter choice'
Alias loginprompt '\nUser ID: '
Alias passwdprompt '\nPassword:'
Alias presscr 'Press <CR>!'
;
; The following aliases define the banner lines for
; various areas of the CIS system
;
Alias mailmenubanner 'Mail Main Menu'
Alias msgmenubanner '\nCompuServe Mail Message Menu'
;
;------------------------------------------------------
; The following alias determines what intermediate network
; will be assumed. It can be one of the following:
;
; DIRECT Direct connection to CIS Packet Net
; SPRINT Connect through SprintNet
; TYMNET Connect through TymNet
;
Alias connectype DIRECT
;
; The following alias should be set TRUE if your modem
; drops carrier every time you make a connection. This
; alias simply forces the script to wait 2 seconds for
; the connection to settle before starting the script.
;
Alias waitasec FALSE
;
;------------------------------------------------------
; The following aliases cause the script to use
; XMODEM for the transfer protocol. Comment them
; out if you wish to use ASCII instead:
;
;Alias dnloadproto REQUEST_XMODEM_DNLOAD
;Alias uploadproto REQUEST_UPLOAD_XMODEM
;
; Uncomment the following aliases if you wish to
; use ASCII transfers:
;
Alias dnloadproto REQUEST_ASCII_DNLOAD
Alias uploadproto REQUEST_UPLOAD_ASCII
;
;------------------------------------------------------
; This is the main entry-point for the script, which
; decides which intermediate network will be used to
; connect to CompuServe.
;
Begin START
If %waitasec% Then WAIT_START
If TRUE Then %connectype%
End
Begin WAIT_START
Timeout 2 Goto %connectype%
End
;
;------------------------------------------------------
; This is the entry point for a direct dial-in to CIS
; Packet Net. Basically it begins by sending a Control-C
; every three seconds until we see a 'User ID' prompt.
;
Begin DIRECT
Caption 'connected'
Control C
When %cishost% Goto CIS_HOST
When %loginprompt% Goto USERNAME
Timeout 3 Goto DIRECT
End
;------------------------------------------------------
; This is the entry point for a dial-in to CIS via
; SprintNet.
;
Alias sprintterm 'TERMINAL='
Begin SPRINT
Timeout 2 Goto SPRINT0
End
Begin SPRINT0
Caption 'connected'
Transmit '@'
Timeout 1 Goto SPRINTCR
End
Begin SPRINTCR
Cr
When %sprintterm% Goto SPRINT_TERM
CarrierLoss Goto NO_LOGIN
Timeout 8 Goto SPRINT1
End
Begin SPRINT1
Transmit '@'
Timeout 1 Goto SPRINTCR1
End
Begin SPRINTCR1
Cr
When %sprintterm% Goto SPRINT_TERM
CarrierLoss Goto NO_LOGIN
Timeout 8 Goto SPRINT2
End
Begin SPRINT2
Transmit '@'
Timeout 1 Goto SPRINTCR2
End
Begin SPRINTCR2
Cr
When %sprintterm% Goto SPRINT_TERM
CarrierLoss Goto NO_LOGIN
Timeout 30 Goto NO_LOGIN
End
Begin SPRINT_TERM
Transmit 'D1'
Cr
When '@' Goto SPRINT_LOGIN
When %sprintterm% Goto SPRINT_TERM
Timeout 30 Goto NO_LOGIN
End
Begin SPRINT_LOGIN
Transmit 'C 614227'
Cr
When %cishost% Goto CIS_HOST
When %loginprompt% Goto USERNAME
When '@' Goto SPRINT_LOGIN2
Timeout 45 Goto NO_LOGIN
End
Begin SPRINT_LOGIN2
Transmit 'C 202202'
Cr
When %cishost% Goto CIS_HOST
When %loginprompt% Goto USERNAME
Timeout 45 Goto NO_LOGIN
End
;------------------------------------------------------
; This is the entry point for a dial-in to CIS via
; TymNet.
;
Alias tymterm 'terminal identifier'
Alias tymlogin 'please log in'
Alias tymcis 'CML05'
Begin TYMNET
Caption 'connected'
When %tymterm% Goto TYMNET_TERM
CarrierLoss Goto NO_LOGIN
Timeout 5 Goto TYMNET1
End
Begin TYMNET1
Cr
When %tymterm% Goto TYMNET_TERM
CarrierLoss Goto NO_LOGIN
Timeout 5 Goto TYMNET2
End
Begin TYMNET2
Cr
When %tymterm% Goto TYMNET_TERM
CarrierLoss Goto NO_LOGIN
Timeout 15 Goto NO_LOGIN
End
Begin TYMNET_TERM
Transmit 'A'
When %tymlogin% Goto TYMNET_LOGIN
When %tymterm% Goto TYMNET_TERM
CarrierLoss Goto NO_LOGIN
Timeout 15 Goto NO_LOGIN
End
Begin TYMNET_LOGIN
Transmit %tymcis%
Cr
When %tymlogin% Goto TYMNET_LOGIN
When %cishost% Goto CIS_HOST
When %loginprompt% Goto USERNAME
CarrierLoss Goto NO_LOGIN
Timeout 45 Goto NO_LOGIN
End
;
;------------------------------------------------------
; These states perform the login process into CIS
;
Begin CIS_HOST
Transmit 'CIS,DOMESTIC'
Cr
When %cishost% Goto CIS_HOST
When %loginprompt% Goto USERNAME
Timeout 45 Goto NO_LOGIN
End
Begin USERNAME
Caption 'logging in'
Transmit $USERNAME
Cr
When %passwdprompt% Goto PASSWORD
When %loginprompt% Goto USERNAME
Timeout 20 Goto NO_LOGIN
End
Begin PASSWORD
Transmit $PASSWORD
Cr
When %passwdprompt% Goto PASSWORD
When %loginprompt% Goto USERNAME
When 'CompuServe Information Service' Goto LOGGED_IN
Timeout 20 Goto NO_LOGIN
End
Begin LOGGED_IN
Caption 'logged in'
When %msgmenubanner% Goto MESSAGE_MENU
When 'New This Week' Goto NEW_MENU
When %cisprompt% Goto JUMP_TO_MAIL
Timeout 30 Goto JUMP_TO_MAIL
End
Begin NEW_MENU
When %cisprompt% Goto JUMP_TO_MAIL
Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
; These states deal with getting from wherever we are
; into the CIS Mail Area.
;
Begin JUMP_TO_MAIL
Transmit 'go email'
Cr
When 'Mail Message Menu' Goto MESSAGE_MENU
When 'additional information (Y or N)!' Goto ANSWER_NO
When 'is temporarily unavailable' Goto MAIL_UNAVAILABLE
When %mailmenubanner% Goto MAIL_MAIN_MENU
When %cisprompt% Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
Begin ANSWER_NO
Transmit 'N'
Cr
When 'Mail Message Menu' Goto MESSAGE_MENU
When 'additional information (Y or N)!' Goto ANSWER_NO
When %mailmenubanner% Goto MAIL_MAIN_MENU
When %cisprompt% Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
; At this point we're entering the main menu of the
; mail area. These states detect if there's mail,
; and if there is it initiates a download of the next
; letter in line. If not, and there are more letters
; to deliver, an upload is initiated
;
Begin MAIL_MAIN_MENU
Caption 'Mail Area'
When '*** No mail waiting ***' Goto NO_MAIL_WAITING
When 'letters waiting' Goto MAIL_WAITING
When 'letter waiting' Goto MAIL_WAITING
When 'message pending' Goto MAIL_WAITING
When 'messages pending' Goto MAIL_WAITING
When %cisprompt% Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
Begin MAIL_WAITING
If FETCHING Then FETCH_FROM_MAIN_MENU
If MORE_LETTERS Then SEND_MAIL
When %cisprompt% Goto LOG_OFF
Timeout 20 Goto LOG_OFF
End
Begin NO_MAIL_WAITING
Caption 'No Mail'
If MORE_LETTERS Then SEND_MAIL
When %cisprompt% Goto LOG_OFF
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
; These states are run when the silly "Message Menu"
; appears at login time. If the script is fetching
; mail, it will initiate a download of a letter from
; this menu. Note that only one letter will be downloaded,
; if there are more, the script gets the rest from the
; normal Mail Menu.
;
Begin MESSAGE_MENU
Caption 'You have mail'
If FETCHING Then FETCH_FROM_MESSAGE_MENU
When 'M for CompuServe Mail' Goto JUMP_